home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #9 / Amiga Plus CD - 2004 - No. 09.iso / amigaplus / tools / dev_libs / feelin040718 / arexx / f_phx.rexx < prev    next >
OS/2 REXX Batch file  |  2004-08-03  |  1KB  |  52 lines
  1. /*
  2.  
  3.    F_Phx.rexx
  4.  
  5.  */
  6.  
  7. SIGNAL ON FAILURE
  8.  
  9. IF ~Show('L','rexxsupport.library') THEN DO
  10.    IF ~AddLib('rexxsupport.library',0,-30) THEN DO
  11.       Say('Unable to open rexxsupport.library')
  12.       EXIT 10
  13.    END
  14. END
  15.  
  16. PARSE ARG src force quiet .
  17.  
  18. IF Exists(src) THEN DO
  19.    date = Translate(Date(E),'-','/')
  20.    time = Time()
  21.  
  22.    obj = Left(src,Length(src) - 1) || 'o'
  23.  
  24.    IF force = 1 THEN DO
  25.       update = 1
  26.    END
  27.    ELSE DO
  28.       state_src = StateF(src)
  29.       state_obj = StateF(obj)
  30.       update    = 0
  31.  
  32.       IF Word(state_src,5) ~= Word(state_obj,5) THEN update = 1
  33.       IF Word(state_src,6) ~= Word(state_obj,6) THEN update = 1
  34.       IF Word(state_src,7) ~= Word(state_obj,7) THEN update = 1
  35.    END
  36.  
  37.    IF quiet = 0 THEN DO
  38.       IF update = 1 THEN Say('Updating ' || src || '...')
  39.       ELSE               Say(src || ' ok')
  40.    END
  41.  
  42.    IF update THEN DO
  43.       ADDRESS COMMAND 'PhxAss QUIET' src
  44.  
  45.       ADDRESS COMMAND 'SetDate FILE' src 'DATE' date 'TIME' time
  46.       ADDRESS COMMAND 'SetDate FILE' obj 'DATE' date 'TIME' time
  47.    END
  48. END
  49. ELSE DO
  50.    Say('File "' || src || '" does not exists')
  51. END
  52.